好彩自然来来来: [code=javascript] Sub 合并行数据() ' ' Dim i As Byte '定义一个Byte类型的变量，名称为i Dim j As Byte For i = 1 To Worksheets.Count - 1 Step 1 'i从1到“工作表的数量-1”循环 Sheets(i).Select '选择第i个工作表（从左往右数） Rows("202:202").Select '选择第44行整行单元格 Selection.Copy '复制选中的单元格 Sheets("1").Select '选择名称为"Sheet3"的工作表 Range("a" & i).Select '粘贴到Ai单元格 ActiveSheet.Paste Columns("A:A").Select '选中第A列整列 Next i Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbo '在第A列前插入一列 For j = 1 To Worksheets.Count - 1 Step 1 'i从1到“工作表的数量-1”循环 Sheets(j).Select '选择第i个工作表（从左往右数） Range("B2").Select '选择B2单元格 Selection.Copy '复制选中的单元格 Sheets("1").Select '选择名称为"Sheet3"的工作表 Range("A" & j).Select [/code]

天是海的尽头: 我想问最开头那里的子程序sum abc()里的sum是什么鬼,不应该是Sub吗

小驴嗷嗷叫: 直接在这个网站上记的

m0_52695684: 这笔记在什么app记得呀

weixin_45051823: 这个截图什么软件呀